-- card: 2598 from stack: in
-- bmap block id: 3492
-- flags: 4000
-- background id: 6557
-- name: 9
----- HyperTalk script -----
On OpenCard
  Put 9 Into Bkgnd field ID 26
end OpenCard

On ClearInfo
  Send "ClearButtons" to Card ID 2598 -- line 32a
  Set hilite of Card button ID 18 of Card ID 2598 to false -- line 32b
  Set hilite of Card button ID 19 of Card ID 2598 to false -- line 32c
  Put 0 into Card field ID 25 of Card ID 2598 -- line 33a
  Put Empty into Card field ID 26 of Card ID 2598
end ClearInfo

On DoIt
  Global NumBox
  Put card field ID 11 of card ID 2598 into FieldNum
  If NumBox is true then
    Add 1 to Card field ID 11 of Card ID 2598
    IF FieldNum = Zero then
      Send "AddField" to Card ID 2598
    end if
  else
    Subtract 1 from Card field ID 11 of Card ID 2598
  end if

  Put Card field ID 11 of Card ID 2598 into Value
  If Value <= 0 then
    put "0" into Card field ID 11 of Card ID 2598
    Send "EmptyField" to Card ID 2598
  end if
  Send "FindStatus" to Card ID 3260
End DoIt

On ClearButtons
  Set hilite of Card button ID 20 of Card ID 2598 to false
  Set hilite of Card button ID 22 of Card ID 2598 to false
  Set hilite of Card button ID 21 of Card ID 2598 to false
  Set hilite of Card button ID 23 of Card ID 2598 to false
  Put 0 into Card field ID 11 of Card ID 2598
end ClearButtons


On EmptyField
  Put Empty into Card field ID 26 of card ID 2598
  put "0" into Card field ID 25 of Card ID 2598
end Emptyfield

On AddField
  Put "IF you itemize, your total should exceed this number." & " IF total doesn't exceed, use this number " into FieldMessage
  Put FieldMessage into Card field ID 26 of card ID 2598
End AddField




-- part 1 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=88 top=63 right=80 bottom=395
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 2 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=394 top=63 right=78 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: 


-- part 3 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=418 top=63 right=78 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 
----- HyperTalk script -----
On MouseUp
  Send "MouseUp" to Card button ID 4 of Card ID 7846
End MouseUP



-- part 4 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=88 top=81 right=96 bottom=165
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 5 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=194 top=81 right=96 bottom=302
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 6 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=352 top=81 right=96 bottom=386
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 7 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=352 top=99 right=114 bottom=386
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 8 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=195 top=99 right=114 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 9 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=88 top=119 right=135 bottom=395
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 10 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=394 top=119 right=134 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: 


-- part 11 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=418 top=119 right=134 bottom=442
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 
----- HyperTalk script -----
On SingleButton
  Global TotalBox,Button22,Button23,CardNumber
  Put hilite of Card button ID 22 of Card ID 2598 into Button22
  Put hilite of Card button ID 23 of Card ID 2598 into Button23
  IF Button22 = false and Button23 = False then
    If TotalBox = 1 then
      Put 3750 into Card Field ID 25 of Card ID 2598
    else if TotalBox = 2 then
      Put 4500 into Card Field ID 25 of Card ID 2598
    end if
  Else
    Beep
    Answer "Error in Filing status or in Exemptions."
    Send "EmptyField" to Card ID 2598
    Set hilite of Card button ID 12 of Card ID 3260 to False
    Send "Signal" to Card Button ID 1 of Card ID 2982
    Send "Signal" to Card ID 3260
    Answer "Redue 32a or select different filing status." With "filing Status" or "OK"
    IF it is "filing Status" then
      Get short number of this card
      Put it into CardNumber
      Go to Card ID 2982
      Put "Please select a Filing Status Box." into Card field ID 6 of Card ID 2982
    End if
  end if
End SingleButton

On HeadButton
  Global TotalBox,Button22,Button23
  Put hilite of Card button ID 22 of Card ID 2598 into Button22
  Put hilite of Card button ID 23 of Card ID 2598 into Button23
  IF Button22 = false and Button23 = False then
    If TotalBox = 1 then
      Put 5150 into Card Field ID 25 of Card ID 2598
    else if TotalBox = 2 then
      Put 5900 into Card Field ID 25 of Card ID 2598
    end if
  Else
    Beep
    Answer "Error in Filing status or in Exemptions."
    Send "Signal" to Card Button ID 4 of Card ID 2982
    Send "Signal" to Card ID 3260
    Set hilite of Card button ID 12 of Card ID 3260 to False
  end if
End HeadButton

On MarriedJ
  Global TotalBox
  If TotalBox = 1 then
    Put 5600 into Card Field ID 25 of Card ID 2598
  else if TotalBox = 2 then
    Put 6200 into Card Field ID 25 of Card ID 2598
  else if TotalBox = 3 then
    Put 6800 into Card Field ID 25 of Card ID 2598
  else if TotalBox = 4 then
    Put 7400 into Card Field ID 25 of Card ID 2598
  end if
end MarriedJ

On MarriedS
  Global TotalBox
  If TotalBox = 1 then
    Put 3100 into Card Field ID 25 of Card ID 2598
  else if TotalBox = 2 then
    Put 3700 into Card Field ID 25 of Card ID 2598
  else if TotalBox = 3 then
    Put 4300 into Card Field ID 25 of Card ID 2598
  else if TotalBox = 4 then
    Put 4900 into Card Field ID 25 of Card ID 2598
  end if
end MarriedS



-- part 13 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=88 top=138 right=167 bottom=395
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 14 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=88 top=221 right=277 bottom=395
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 15 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=307 top=151 right=166 bottom=332
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: 


-- part 16 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=308 top=199 right=214 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: 


-- part 17 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=88 top=173 right=217 bottom=393
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 18 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=339 top=150 right=167 bottom=357
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 19 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=338 top=199 right=216 bottom=356
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 20 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=177 top=79 right=95 bottom=195
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  Global NumBox,Flag1
  Set cursor to 4
  put hilite of Card button ID 20 of Card ID 2598 into NumBox
  Send "DoIt" to Card ID 2598
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=334 top=79 right=95 bottom=352
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  Global NumBox
  Set cursor to 4
  put hilite of Card button ID 21 of Card ID 2598 into NumBox
  Send "DoIt" to Card ID 2598
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=177 top=99 right=115 bottom=195
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  Global NumBox
  Set cursor to 4
  put hilite of Card button ID 22 of Card ID 2598 into NumBox
  Send "DoIt" to Card ID 2598
end mouseUp

On Signal
  Visual effect scroll Left
  Go to Card ID 2598
  Repeat 11 times
    Get hilite of Card button ID 22 of Card ID 2598
    If it = True then
      Set hilite of Card Button ID 22 of Card ID 2598 to False
    else
      Set hilite of Card Button ID 22 of Card ID 2598 to True
    end if
  end Repeat
  Send "ClearButtons" to Card ID 2598
end Signal



-- part 23 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=334 top=99 right=115 bottom=352
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  Global NumBox
  Set cursor to 4
  put hilite of Card button ID 23 of Card ID 2598 into NumBox
  Send "DoIt" to Card ID 2598
end mouseUp

On Signal
  Visual effect scroll Left
  Go to Card ID 2598
  Repeat 11 times
    Get hilite of Card button ID 23 of Card ID 2598
    If it = True then
      Set hilite of Card Button ID 23 of Card ID 2598 to False
    else
      Set hilite of Card Button ID 23 of Card ID 2598 to True
    end if
  end Repeat
  Send "ClearButtons" to Card ID 2598
end Signal


-- part 24 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=394 top=260 right=275 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: 


-- part 25 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=418 top=260 right=275 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 26 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=410 top=179 right=261 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 27 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=91 top=35 right=50 bottom=188
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Schedule A
----- HyperTalk script -----
on mouseUp
  Go to Card ID 9317
end mouseUp



-- part contents for background part 13
----- text -----
Tax Compu - tation

-- part contents for background part 15
----- text -----







-- part contents for card part 1
----- text -----
31.  Amount from line 30 (adjusted gross income) . . . . . . . . . .

-- part contents for card part 2
----- text -----
31

-- part contents for card part 10
----- text -----
32a

-- part contents for card part 4
----- text -----
32a. Check if:

-- part contents for card part 5
----- text -----
You were 65 or over

-- part contents for card part 6
----- text -----
Blind

-- part contents for card part 8
----- text -----
Spouse was 65 or over

-- part contents for card part 7
----- text -----
Blind

-- part contents for card part 9
----- text -----
   Add the number of boxes checked and enter the total here. . . .


-- part contents for card part 13
----- text -----
32b.  If you can be claimed as a dependent on another person's
          return, check here . . . . . . . . . . . . . . . .

-- part contents for card part 14
----- text -----
33a.  Itemized deductions.  See page 15 to see if you should 
         itemize.  If you don't itemize, enter zero.  If you do 
         itemize, attach Schedule A, enter the amount from 
         Schedule A, line 26, AND  skip line 33b. . . . . . . . . . . . . .  . . . . . . .

-- part contents for card part 15
----- text -----
32b

-- part contents for card part 16
----- text -----
32c

-- part contents for card part 17
----- text -----
32c.  If you are married filing a separate return and your
         spouse itemizes deductions, or you are a dual - status
         alien, see page 15 and check here. . . . . 

-- part contents for card part 24
----- text -----
0

-- part contents for background part 20
----- text -----
Continue to next card

-- part contents for background part 26
----- text -----
9

-- part contents for card part 3
----- text -----
0

-- part contents for card part 25
----- text -----
0

-- part contents for card part 11
----- text -----
0

-- part contents for background part 40
----- text -----
4:05 PM